Voorbeeld van de eigenschap TopIndex

In het volgende voorbeeld wordt het bovenste onderdeel dat wordt weergegeven in een ListBox en het onderdeel dat de focus heeft in een ListBox ge∩dentificeerd. Dit voorbeeld maakt gebruik van de eigenschap TopIndex om het onderdeel dat bovenaan wordt weergegeven in de ListBox te identificeren en de eigenschap ListIndex om het onderdeel dat de focus heeft te identificeren. De gebruiker selecteert een onderdeel in de ListBox. De weergegeven waarden van TopIndex en ListIndex worden bijgewerkt als de gebruiker een onderdeel selecteert of klikt op de CommandButton.

Als u dit voorbeeld wilt gebruiken, kopieert u de voorbeeldcode naar de declaratiesectie van een formulier. Zorg ervoor dat het formulier de volgende besturingselementen bevat:

• Een Label met de naam Label1.
  
  
• Een TextBox met de naam TextBox1.
  
  
• Een Label met de naam Label2.
  
  
• Een TextBox met de naam TextBox2.
  
  
• Een CommandButton met de naam CommandButton1.
  
  
• Een ListBox met de naam ListBox1.

Private Sub CommandButton1_Click()
    ListBox1.TopIndex = ListBox1.ListIndex
    TextBox1.Text = ListBox1.TopIndex
    TextBox2.Text = ListBox1.ListIndex
End Sub

Private Sub ListBox1_Change()
    TextBox1.Text = ListBox1.TopIndex
    TextBox2.Text = ListBox1.ListIndex
End Sub

Private Sub UserForm_Initialize()
    Dim i As Integer

    For i = 0 To 24
        ListBox1.AddItem "Choice " & (i + 1)
    Next i
    ListBox1.Height = 66
    CommandButton1.Caption = "Move to top of list"
    CommandButton1.AutoSize = True
    CommandButton1.TakeFocusOnClick = False
        
    Label1.Caption = "Index of top item"
    TextBox1.Text = ListBox1.TopIndex

    Label2. Caption = "Index of current item"
    Label2.AutoSize = True
    Label2.WordWrap = False
    TextBox2.Text = ListBox1.ListIndex
End Sub